/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / case-table.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 74 65 78 74 2d 6d 6f | 64 65 29 29 0a 0a 28 64 | text-mo|de))..(d|
|00000020| 65 66 75 6e 20 63 61 73 | 65 2d 6f 66 20 28 63 68 |efun cas|e-of (ch|
|00000030| 20 63 74 29 20 22 5c 0a | 52 65 74 75 72 6e 20 27 | ct) "\.|Return '|
|00000040| 6e 6f 63 61 73 65 20 69 | 66 20 63 68 61 72 61 63 |nocase i|f charac|
|00000050| 74 65 72 20 43 48 20 69 | 73 20 6d 61 72 6b 65 64 |ter CH i|s marked|
|00000060| 20 61 73 20 63 61 73 65 | 6c 65 73 73 20 69 6e 0a | as case|less in.|
|00000070| 63 61 73 65 20 74 61 62 | 6c 65 20 43 54 2c 20 27 |case tab|le CT, '|
|00000080| 6c 6f 77 65 72 63 61 73 | 65 20 66 6f 72 20 6c 6f |lowercas|e for lo|
|00000090| 77 65 72 20 63 61 73 65 | 2c 20 61 6e 64 20 27 75 |wer case|, and 'u|
|000000a0| 70 70 65 72 63 61 73 65 | 20 66 6f 72 0a 75 70 70 |ppercase| for.upp|
|000000b0| 65 72 20 63 61 73 65 2e | 22 20 28 62 79 74 65 2d |er case.|" (byte-|
|000000c0| 63 6f 64 65 20 22 c3 08 | 09 5c 22 83 0b 00 c4 82 |code "..|.\".....|
|000000d0| 17 00 c5 08 09 5c 22 83 | 16 00 c6 82 17 00 c7 87 |.....\".|........|
|000000e0| 22 20 5b 63 68 20 63 74 | 20 74 20 6e 6f 63 61 73 |" [ch ct| t nocas|
|000000f0| 65 2d 70 20 6e 6f 63 61 | 73 65 20 6c 6f 77 65 72 |e-p noca|se lower|
|00000100| 2d 70 20 6c 6f 77 65 72 | 63 61 73 65 20 75 70 70 |-p lower|case upp|
|00000110| 65 72 63 61 73 65 5d 20 | 34 29 29 0a 0a 28 64 65 |ercase] |4))..(de|
|00000120| 66 75 6e 20 64 65 73 63 | 72 69 62 65 2d 62 75 66 |fun desc|ribe-buf|
|00000130| 66 65 72 2d 63 61 73 65 | 2d 74 61 62 6c 65 20 6e |fer-case|-table n|
|00000140| 69 6c 20 22 5c 0a 44 65 | 73 63 72 69 62 65 20 74 |il "\.De|scribe t|
|00000150| 68 65 20 63 61 73 65 20 | 74 61 62 6c 65 20 6f 66 |he case |table of|
|00000160| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|00000170| 66 65 72 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |fer." (i|nteracti|
|00000180| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00000190| c0 88 c1 c2 20 21 87 22 | 20 5b 6e 69 6c 20 64 65 |.... !."| [nil de|
|000001a0| 73 63 72 69 62 65 2d 63 | 61 73 65 2d 74 61 62 6c |scribe-c|ase-tabl|
|000001b0| 65 20 63 61 73 65 2d 74 | 61 62 6c 65 5d 20 33 29 |e case-t|able] 3)|
|000001c0| 29 0a 0a 28 64 65 66 75 | 6e 20 64 65 73 63 72 69 |)..(defu|n descri|
|000001d0| 62 65 2d 63 61 73 65 2d | 74 61 62 6c 65 20 28 63 |be-case-|table (c|
|000001e0| 74 29 20 22 5c 0a 44 65 | 73 63 72 69 62 65 20 74 |t) "\.De|scribe t|
|000001f0| 68 65 20 67 69 76 65 6e | 20 63 61 73 65 20 74 61 |he given| case ta|
|00000200| 62 6c 65 20 69 6e 20 61 | 20 68 65 6c 70 20 62 75 |ble in a| help bu|
|00000210| 66 66 65 72 2e 22 20 28 | 62 79 74 65 2d 63 6f 64 |ffer." (|byte-cod|
|00000220| 65 20 22 c7 18 c8 c7 0a | 5c 22 19 c7 1b 09 1c c9 |e ".....|\"......|
|00000230| 1d ca 1e 06 cb 90 0d cc | 58 85 8b 00 c8 0d 0a 5c |........|X......\|
|00000240| 22 89 16 06 88 0c 0e 06 | 3d 3f 85 51 00 cd 08 21 |".......|=?.Q...!|
|00000250| 88 08 0b 55 3f 85 3a 00 | ce cf 21 88 cd 0b 21 88 |...U?.:.|..!...!.|
|00000260| ce d0 21 88 ce d1 0c 21 | 21 88 ce d2 21 88 0d 89 |..!....!|!...!...|
|00000270| 10 88 0e 06 89 11 88 0d | cc 55 85 79 00 cd 08 21 |........|.U.y...!|
|00000280| 88 08 0d 55 3f 85 6a 00 | ce cf 21 88 cd 0d 21 88 |...U?.j.|..!...!.|
|00000290| ce d0 21 88 ce d1 0e 06 | 21 21 88 ce d2 21 88 0d |..!.....|!!...!..|
|000002a0| 89 13 88 0e 06 89 14 88 | 0d 54 89 15 88 82 12 00 |........|.T......|
|000002b0| 88 d3 20 91 2e 06 87 22 | 20 5b 69 20 69 63 20 63 |.. ...."| [i ic c|
|000002c0| 74 20 6a 20 6a 63 20 6b | 20 6b 63 20 30 20 63 61 |t j jc k| kc 0 ca|
|000002d0| 73 65 2d 6f 66 20 31 20 | 6e 69 6c 20 22 2a 48 65 |se-of 1 |nil "*He|
|000002e0| 6c 70 2a 22 20 32 35 35 | 20 64 65 73 63 72 69 62 |lp*" 255| describ|
|000002f0| 65 2d 63 68 61 72 61 63 | 74 65 72 20 70 72 69 6e |e-charac|ter prin|
|00000300| 63 20 22 2e 2e 22 20 22 | 09 22 20 73 79 6d 62 6f |c ".." "|." symbo|
|00000310| 6c 2d 6e 61 6d 65 20 22 | 0a 22 20 70 72 69 6e 74 |l-name "|." print|
|00000320| 2d 68 65 6c 70 2d 72 65 | 74 75 72 6e 2d 6d 65 73 |-help-re|turn-mes|
|00000330| 73 61 67 65 5d 20 32 30 | 29 29 0a 0a 28 64 65 66 |sage] 20|))..(def|
|00000340| 75 6e 20 64 65 73 63 72 | 69 62 65 2d 63 68 61 72 |un descr|ibe-char|
|00000350| 61 63 74 65 72 20 28 63 | 29 20 22 5c 0a 50 72 69 |acter (c|) "\.Pri|
|00000360| 6e 74 20 63 68 61 72 61 | 63 74 65 72 20 43 20 72 |nt chara|cter C r|
|00000370| 65 61 64 61 62 6c 79 2e | 22 20 28 62 79 74 65 2d |eadably.|" (byte-|
|00000380| 63 6f 64 65 20 22 08 c2 | 55 83 0c 00 c3 c4 21 82 |code "..|U.....!.|
|00000390| 1d 00 08 c5 55 83 18 00 | c3 c6 21 82 1d 00 c3 c7 |....U...|..!.....|
|000003a0| 08 21 21 87 22 20 5b 63 | 20 74 20 39 20 70 72 69 |.!!." [c| t 9 pri|
|000003b0| 6e 63 20 22 5c 5c 74 22 | 20 31 30 20 22 5c 5c 6e |nc "\\t"| 10 "\\n|
|000003c0| 22 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |" char-t|o-string|
|000003d0| 5d 20 35 29 29 0a 0a 28 | 64 65 66 75 6e 20 69 6e |] 5))..(|defun in|
|000003e0| 76 65 72 74 2d 63 61 73 | 65 20 6e 69 6c 20 22 5c |vert-cas|e nil "\|
|000003f0| 0a 43 68 61 6e 67 65 20 | 74 68 65 20 63 61 73 65 |.Change |the case|
|00000400| 20 6f 66 20 74 68 65 20 | 63 68 61 72 61 63 74 65 | of the |characte|
|00000410| 72 20 6a 75 73 74 20 61 | 66 74 65 72 20 70 6f 69 |r just a|fter poi|
|00000420| 6e 74 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |nt." (in|teractiv|
|00000430| 65 20 22 2a 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "*") (|byte-cod|
|00000440| 65 20 22 c1 88 67 18 c2 | 08 21 83 12 00 c3 c4 08 |e "..g..|.!......|
|00000450| 21 21 82 1d 00 c5 08 21 | 85 1d 00 c3 c6 08 21 21 |!!.....!|......!!|
|00000460| 29 88 c7 20 87 22 20 5b | 6f 63 20 6e 69 6c 20 6c |).. ." [|oc nil l|
|00000470| 6f 77 65 72 2d 70 20 72 | 65 70 6c 61 63 65 2d 63 |ower-p r|eplace-c|
|00000480| 68 61 72 20 75 70 63 61 | 73 65 20 75 70 70 65 72 |har upca|se upper|
|00000490| 2d 70 20 64 6f 77 6e 63 | 61 73 65 20 66 6f 72 77 |-p downc|ase forw|
|000004a0| 61 72 64 2d 63 68 61 72 | 5d 20 38 29 29 0a 0a 28 |ard-char|] 8))..(|
|000004b0| 64 65 66 75 6e 20 73 74 | 61 6e 64 61 72 64 2d 63 |defun st|andard-c|
|000004c0| 61 73 65 2d 73 79 6e 74 | 61 78 2d 64 65 6c 69 6d |ase-synt|ax-delim|
|000004d0| 73 20 28 6c 20 72 29 20 | 22 5c 0a 53 65 74 20 74 |s (l r) |"\.Set t|
|000004e0| 68 65 20 65 6e 74 72 69 | 65 73 20 66 6f 72 20 63 |he entri|es for c|
|000004f0| 68 61 72 61 63 74 65 72 | 73 20 4c 20 61 6e 64 20 |haracter|s L and |
|00000500| 52 20 69 6e 20 73 74 61 | 6e 64 61 72 64 2d 63 61 |R in sta|ndard-ca|
|00000510| 73 65 2d 74 61 62 6c 65 | 2c 0a 73 74 61 6e 64 61 |se-table|,.standa|
|00000520| 72 64 2d 64 6f 77 6e 63 | 61 73 65 2d 74 61 62 6c |rd-downc|ase-tabl|
|00000530| 65 2c 20 73 74 61 6e 64 | 61 72 64 2d 75 70 63 61 |e, stand|ard-upca|
|00000540| 73 65 2d 74 61 62 6c 65 | 2c 0a 73 74 61 6e 64 61 |se-table|,.standa|
|00000550| 72 64 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 2c |rd-synta|x-table,|
|00000560| 20 61 6e 64 20 74 65 78 | 74 2d 6d 6f 64 65 2d 73 | and tex|t-mode-s|
|00000570| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 74 6f 20 69 |yntax-ta|ble to i|
|00000580| 6e 64 69 63 61 74 65 0a | 6c 65 66 74 20 61 6e 64 |ndicate.|left and|
|00000590| 20 72 69 67 68 74 20 64 | 65 6c 69 6d 69 74 65 72 | right d|elimiter|
|000005a0| 73 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |s." (byt|e-code "|
|000005b0| c3 08 c4 20 5c 22 88 c3 | 09 c4 20 5c 22 88 c5 08 |... \"..|.. \"...|
|000005c0| 08 c6 20 23 88 c5 09 09 | c6 20 23 88 c5 08 08 c7 |.. #....|. #.....|
|000005d0| 20 23 88 c5 09 09 c7 20 | 23 88 c8 08 c9 ca 09 21 | #..... |#......!|
|000005e0| cb 51 cc 20 23 88 c8 08 | c9 ca 09 21 cb 51 0a 23 |.Q. #...|...!.Q.#|
|000005f0| 88 c8 09 cd ca 08 21 cb | 51 cc 20 23 88 c8 09 cd |......!.|Q. #....|
|00000600| ca 08 21 cb 51 0a 23 87 | 22 20 5b 6c 20 72 20 74 |..!.Q.#.|" [l r t|
|00000610| 65 78 74 2d 6d 6f 64 65 | 2d 73 79 6e 74 61 78 2d |ext-mode|-syntax-|
|00000620| 74 61 62 6c 65 20 73 65 | 74 2d 63 61 73 65 2d 74 |table se|t-case-t|
|00000630| 61 62 6c 65 2d 6e 6f 63 | 61 73 65 20 73 74 61 6e |able-noc|ase stan|
|00000640| 64 61 72 64 2d 63 61 73 | 65 2d 74 61 62 6c 65 20 |dard-cas|e-table |
|00000650| 73 65 74 2d 74 72 61 6e | 73 2d 74 61 62 6c 65 2d |set-tran|s-table-|
|00000660| 74 6f 20 73 74 61 6e 64 | 61 72 64 2d 64 6f 77 6e |to stand|ard-down|
|00000670| 63 61 73 65 2d 74 61 62 | 6c 65 20 73 74 61 6e 64 |case-tab|le stand|
|00000680| 61 72 64 2d 75 70 63 61 | 73 65 2d 74 61 62 6c 65 |ard-upca|se-table|
|00000690| 20 6d 6f 64 69 66 79 2d | 73 79 6e 74 61 78 2d 65 | modify-|syntax-e|
|000006a0| 6e 74 72 79 20 22 28 22 | 20 63 68 61 72 2d 74 6f |ntry "("| char-to|
|000006b0| 2d 73 74 72 69 6e 67 20 | 22 20 20 22 20 73 74 61 |-string |"  " sta|
|000006c0| 6e 64 61 72 64 2d 73 79 | 6e 74 61 78 2d 74 61 62 |ndard-sy|ntax-tab|
|000006d0| 6c 65 20 22 29 22 5d 20 | 32 36 29 29 0a 0a 28 64 |le ")"] |26))..(d|
|000006e0| 65 66 75 6e 20 73 74 61 | 6e 64 61 72 64 2d 63 61 |efun sta|ndard-ca|
|000006f0| 73 65 2d 73 79 6e 74 61 | 78 2d 70 61 69 72 20 28 |se-synta|x-pair (|
|00000700| 75 63 20 6c 63 29 20 22 | 5c 0a 53 65 74 20 74 68 |uc lc) "|\.Set th|
|00000710| 65 20 65 6e 74 72 69 65 | 73 20 66 6f 72 20 63 68 |e entrie|s for ch|
|00000720| 61 72 61 63 74 65 72 73 | 20 55 43 20 61 6e 64 20 |aracters| UC and |
|00000730| 4c 43 20 69 6e 0a 73 74 | 61 6e 64 61 72 64 2d 63 |LC in.st|andard-c|
|00000740| 61 73 65 2d 74 61 62 6c | 65 2c 20 73 74 61 6e 64 |ase-tabl|e, stand|
|00000750| 61 72 64 2d 64 6f 77 6e | 63 61 73 65 2d 74 61 62 |ard-down|case-tab|
|00000760| 6c 65 2c 0a 73 74 61 6e | 64 61 72 64 2d 75 70 63 |le,.stan|dard-upc|
|00000770| 61 73 65 2d 74 61 62 6c | 65 2c 20 73 74 61 6e 64 |ase-tabl|e, stand|
|00000780| 61 72 64 2d 63 61 73 65 | 2d 66 6f 6c 64 2d 74 61 |ard-case|-fold-ta|
|00000790| 62 6c 65 2c 20 73 74 61 | 6e 64 61 72 64 2d 73 79 |ble, sta|ndard-sy|
|000007a0| 6e 74 61 78 2d 74 61 62 | 6c 65 2c 20 61 6e 64 0a |ntax-tab|le, and.|
|000007b0| 74 65 78 74 2d 6d 6f 64 | 65 2d 73 79 6e 74 61 78 |text-mod|e-syntax|
|000007c0| 2d 74 61 62 6c 65 20 74 | 6f 20 69 6e 64 69 63 61 |-table t|o indica|
|000007d0| 74 65 20 61 6e 20 28 75 | 70 70 65 72 63 61 73 65 |te an (u|ppercase|
|000007e0| 2c 20 6c 6f 77 65 72 63 | 61 73 65 29 0a 70 61 69 |, lowerc|ase).pai|
|000007f0| 72 20 6f 66 20 6c 65 74 | 74 65 72 73 2e 22 20 28 |r of let|ters." (|
|00000800| 62 79 74 65 2d 63 6f 64 | 65 20 22 c3 08 09 c4 20 |byte-cod|e ".... |
|00000810| 23 88 c5 08 08 c6 20 23 | 88 c5 09 08 c6 20 23 88 |#..... #|..... #.|
|00000820| c5 08 09 c7 20 23 88 c5 | 09 09 c7 20 23 88 c8 08 |.... #..|... #...|
|00000830| c9 ca 20 23 88 c8 08 c9 | 0a 23 88 c8 09 c9 ca 20 |.. #....|.#..... |
|00000840| 23 88 c8 09 c9 0a 23 87 | 22 20 5b 6c 63 20 75 63 |#.....#.|" [lc uc|
|00000850| 20 74 65 78 74 2d 6d 6f | 64 65 2d 73 79 6e 74 61 | text-mo|de-synta|
|00000860| 78 2d 74 61 62 6c 65 20 | 73 65 74 2d 63 61 73 65 |x-table |set-case|
|00000870| 2d 74 61 62 6c 65 2d 70 | 61 69 72 20 73 74 61 6e |-table-p|air stan|
|00000880| 64 61 72 64 2d 63 61 73 | 65 2d 74 61 62 6c 65 20 |dard-cas|e-table |
|00000890| 73 65 74 2d 74 72 61 6e | 73 2d 74 61 62 6c 65 2d |set-tran|s-table-|
|000008a0| 74 6f 20 73 74 61 6e 64 | 61 72 64 2d 64 6f 77 6e |to stand|ard-down|
|000008b0| 63 61 73 65 2d 74 61 62 | 6c 65 20 73 74 61 6e 64 |case-tab|le stand|
|000008c0| 61 72 64 2d 75 70 63 61 | 73 65 2d 74 61 62 6c 65 |ard-upca|se-table|
|000008d0| 20 6d 6f 64 69 66 79 2d | 73 79 6e 74 61 78 2d 65 | modify-|syntax-e|
|000008e0| 6e 74 72 79 20 22 77 20 | 20 20 22 20 73 74 61 6e |ntry "w |  " stan|
|000008f0| 64 61 72 64 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |dard-syn|tax-tabl|
|00000900| 65 5d 20 31 39 29 29 0a | 0a 28 64 65 66 75 6e 20 |e] 19)).|.(defun |
|00000910| 73 74 61 6e 64 61 72 64 | 2d 63 61 73 65 2d 73 79 |standard|-case-sy|
|00000920| 6e 74 61 78 2d 70 75 6e | 63 74 20 28 63 29 20 22 |ntax-pun|ct (c) "|
|00000930| 5c 0a 53 65 74 20 74 68 | 65 20 65 6e 74 72 69 65 |\.Set th|e entrie|
|00000940| 73 20 66 6f 72 20 63 68 | 61 72 61 63 74 65 72 20 |s for ch|aracter |
|00000950| 43 20 69 6e 20 73 74 61 | 6e 64 61 72 64 2d 63 61 |C in sta|ndard-ca|
|00000960| 73 65 2d 74 61 62 6c 65 | 2c 0a 73 74 61 6e 64 61 |se-table|,.standa|
|00000970| 72 64 2d 64 6f 77 6e 63 | 61 73 65 2d 74 61 62 6c |rd-downc|ase-tabl|
|00000980| 65 2c 20 73 74 61 6e 64 | 61 72 64 2d 75 70 63 61 |e, stand|ard-upca|
|00000990| 73 65 2d 74 61 62 6c 65 | 2c 0a 73 74 61 6e 64 61 |se-table|,.standa|
|000009a0| 72 64 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 2c |rd-synta|x-table,|
|000009b0| 20 61 6e 64 20 74 65 78 | 74 2d 6d 6f 64 65 2d 73 | and tex|t-mode-s|
|000009c0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 74 6f 20 69 |yntax-ta|ble to i|
|000009d0| 6e 64 69 63 61 74 65 0a | 70 75 6e 63 74 75 61 74 |ndicate.|punctuat|
|000009e0| 69 6f 6e 2e 22 20 28 62 | 79 74 65 2d 63 6f 64 65 |ion." (b|yte-code|
|000009f0| 20 22 c2 08 c3 20 5c 22 | 88 c4 08 08 c5 20 23 88 | "... \"|..... #.|
|00000a00| c4 08 08 c6 20 23 88 c7 | 08 c8 c9 20 23 88 c7 08 |.... #..|... #...|
|00000a10| c8 09 23 87 22 20 5b 63 | 20 74 65 78 74 2d 6d 6f |..#." [c| text-mo|
|00000a20| 64 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |de-synta|x-table |
|00000a30| 73 65 74 2d 63 61 73 65 | 2d 74 61 62 6c 65 2d 6e |set-case|-table-n|
|00000a40| 6f 63 61 73 65 20 73 74 | 61 6e 64 61 72 64 2d 63 |ocase st|andard-c|
|00000a50| 61 73 65 2d 74 61 62 6c | 65 20 73 65 74 2d 74 72 |ase-tabl|e set-tr|
|00000a60| 61 6e 73 2d 74 61 62 6c | 65 2d 74 6f 20 73 74 61 |ans-tabl|e-to sta|
|00000a70| 6e 64 61 72 64 2d 64 6f | 77 6e 63 61 73 65 2d 74 |ndard-do|wncase-t|
|00000a80| 61 62 6c 65 20 73 74 61 | 6e 64 61 72 64 2d 75 70 |able sta|ndard-up|
|00000a90| 63 61 73 65 2d 74 61 62 | 6c 65 20 6d 6f 64 69 66 |case-tab|le modif|
|00000aa0| 79 2d 73 79 6e 74 61 78 | 2d 65 6e 74 72 79 20 22 |y-syntax|-entry "|
|00000ab0| 2e 20 20 20 22 20 73 74 | 61 6e 64 61 72 64 2d 73 |.   " st|andard-s|
|00000ac0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 5d 20 31 32 29 |yntax-ta|ble] 12)|
|00000ad0| 29 0a 0a 28 64 65 66 75 | 6e 20 73 74 61 6e 64 61 |)..(defu|n standa|
|00000ae0| 72 64 2d 63 61 73 65 2d | 73 79 6e 74 61 78 2d 73 |rd-case-|syntax-s|
|00000af0| 79 6d 62 20 28 63 29 20 | 22 5c 0a 53 65 74 20 74 |ymb (c) |"\.Set t|
|00000b00| 68 65 20 65 6e 74 72 69 | 65 73 20 66 6f 72 20 63 |he entri|es for c|
|00000b10| 68 61 72 61 63 74 65 72 | 20 43 20 69 6e 20 73 74 |haracter| C in st|
|00000b20| 61 6e 64 61 72 64 2d 63 | 61 73 65 2d 74 61 62 6c |andard-c|ase-tabl|
|00000b30| 65 2c 0a 73 74 61 6e 64 | 61 72 64 2d 64 6f 77 6e |e,.stand|ard-down|
|00000b40| 63 61 73 65 2d 74 61 62 | 6c 65 2c 20 73 74 61 6e |case-tab|le, stan|
|00000b50| 64 61 72 64 2d 75 70 63 | 61 73 65 2d 74 61 62 6c |dard-upc|ase-tabl|
|00000b60| 65 2c 0a 73 74 61 6e 64 | 61 72 64 2d 73 79 6e 74 |e,.stand|ard-synt|
|00000b70| 61 78 2d 74 61 62 6c 65 | 2c 20 61 6e 64 20 74 65 |ax-table|, and te|
|00000b80| 78 74 2d 6d 6f 64 65 2d | 73 79 6e 74 61 78 2d 74 |xt-mode-|syntax-t|
|00000b90| 61 62 6c 65 20 74 6f 20 | 69 6e 64 69 63 61 74 65 |able to |indicate|
|00000ba0| 20 61 0a 73 79 6d 62 6f | 6c 2e 22 20 28 62 79 74 | a.symbo|l." (byt|
|00000bb0| 65 2d 63 6f 64 65 20 22 | c2 08 c3 20 5c 22 88 c4 |e-code "|... \"..|
|00000bc0| 08 08 c5 20 23 88 c4 08 | 08 c6 20 23 88 c7 08 c8 |... #...|.. #....|
|00000bd0| c9 20 23 88 c7 08 c8 09 | 23 87 22 20 5b 63 20 74 |. #.....|#." [c t|
|00000be0| 65 78 74 2d 6d 6f 64 65 | 2d 73 79 6e 74 61 78 2d |ext-mode|-syntax-|
|00000bf0| 74 61 62 6c 65 20 73 65 | 74 2d 63 61 73 65 2d 74 |table se|t-case-t|
|00000c00| 61 62 6c 65 2d 6e 6f 63 | 61 73 65 20 73 74 61 6e |able-noc|ase stan|
|00000c10| 64 61 72 64 2d 63 61 73 | 65 2d 74 61 62 6c 65 20 |dard-cas|e-table |
|00000c20| 73 65 74 2d 74 72 61 6e | 73 2d 74 61 62 6c 65 2d |set-tran|s-table-|
|00000c30| 74 6f 20 73 74 61 6e 64 | 61 72 64 2d 64 6f 77 6e |to stand|ard-down|
|00000c40| 63 61 73 65 2d 74 61 62 | 6c 65 20 73 74 61 6e 64 |case-tab|le stand|
|00000c50| 61 72 64 2d 75 70 63 61 | 73 65 2d 74 61 62 6c 65 |ard-upca|se-table|
|00000c60| 20 6d 6f 64 69 66 79 2d | 73 79 6e 74 61 78 2d 65 | modify-|syntax-e|
|00000c70| 6e 74 72 79 20 22 5f 20 | 20 20 22 20 73 74 61 6e |ntry "_ |  " stan|
|00000c80| 64 61 72 64 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |dard-syn|tax-tabl|
|00000c90| 65 5d 20 31 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |e] 12)).|.(defun |
|00000ca0| 73 74 61 6e 64 61 72 64 | 2d 63 61 73 65 2d 73 79 |standard|-case-sy|
|00000cb0| 6e 74 61 78 2d 77 68 69 | 74 65 20 28 63 29 20 22 |ntax-whi|te (c) "|
|00000cc0| 5c 0a 53 65 74 20 74 68 | 65 20 65 6e 74 72 69 65 |\.Set th|e entrie|
|00000cd0| 73 20 66 6f 72 20 63 68 | 61 72 61 63 74 65 72 20 |s for ch|aracter |
|00000ce0| 43 20 69 6e 20 73 74 61 | 6e 64 61 72 64 2d 63 61 |C in sta|ndard-ca|
|00000cf0| 73 65 2d 74 61 62 6c 65 | 2c 0a 73 74 61 6e 64 61 |se-table|,.standa|
|00000d00| 72 64 2d 64 6f 77 6e 63 | 61 73 65 2d 74 61 62 6c |rd-downc|ase-tabl|
|00000d10| 65 2c 20 73 74 61 6e 64 | 61 72 64 2d 75 70 63 61 |e, stand|ard-upca|
|00000d20| 73 65 2d 74 61 62 6c 65 | 2c 0a 73 74 61 6e 64 61 |se-table|,.standa|
|00000d30| 72 64 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 2c |rd-synta|x-table,|
|00000d40| 20 61 6e 64 20 74 65 78 | 74 2d 6d 6f 64 65 2d 73 | and tex|t-mode-s|
|00000d50| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 74 6f 20 69 |yntax-ta|ble to i|
|00000d60| 6e 64 69 63 61 74 65 0a | 77 68 69 74 65 20 73 70 |ndicate.|white sp|
|00000d70| 61 63 65 2e 22 20 28 62 | 79 74 65 2d 63 6f 64 65 |ace." (b|yte-code|
|00000d80| 20 22 c2 08 c3 20 5c 22 | 88 c4 08 08 c5 20 23 88 | "... \"|..... #.|
|00000d90| c4 08 08 c6 20 23 88 c7 | 08 c8 c9 20 23 88 c7 08 |.... #..|... #...|
|00000da0| c8 09 23 87 22 20 5b 63 | 20 74 65 78 74 2d 6d 6f |..#." [c| text-mo|
|00000db0| 64 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |de-synta|x-table |
|00000dc0| 73 65 74 2d 63 61 73 65 | 2d 74 61 62 6c 65 2d 6e |set-case|-table-n|
|00000dd0| 6f 63 61 73 65 20 73 74 | 61 6e 64 61 72 64 2d 63 |ocase st|andard-c|
|00000de0| 61 73 65 2d 74 61 62 6c | 65 20 73 65 74 2d 74 72 |ase-tabl|e set-tr|
|00000df0| 61 6e 73 2d 74 61 62 6c | 65 2d 74 6f 20 73 74 61 |ans-tabl|e-to sta|
|00000e00| 6e 64 61 72 64 2d 64 6f | 77 6e 63 61 73 65 2d 74 |ndard-do|wncase-t|
|00000e10| 61 62 6c 65 20 73 74 61 | 6e 64 61 72 64 2d 75 70 |able sta|ndard-up|
|00000e20| 63 61 73 65 2d 74 61 62 | 6c 65 20 6d 6f 64 69 66 |case-tab|le modif|
|00000e30| 79 2d 73 79 6e 74 61 78 | 2d 65 6e 74 72 79 20 22 |y-syntax|-entry "|
|00000e40| 20 20 20 20 22 20 73 74 | 61 6e 64 61 72 64 2d 73 |    " st|andard-s|
|00000e50| 79 6e 74 61 78 2d 74 61 | 62 6c 65 5d 20 31 32 29 |yntax-ta|ble] 12)|
|00000e60| 29 0a 0a 28 64 65 66 75 | 6e 20 73 74 61 6e 64 61 |)..(defu|n standa|
|00000e70| 72 64 2d 63 61 73 65 2d | 73 79 6e 74 61 78 2d 77 |rd-case-|syntax-w|
|00000e80| 6f 72 64 20 28 63 29 20 | 22 5c 0a 53 65 74 20 74 |ord (c) |"\.Set t|
|00000e90| 68 65 20 65 6e 74 72 69 | 65 73 20 66 6f 72 20 63 |he entri|es for c|
|00000ea0| 68 61 72 61 63 74 65 72 | 20 43 20 69 6e 20 73 74 |haracter| C in st|
|00000eb0| 61 6e 64 61 72 64 2d 63 | 61 73 65 2d 74 61 62 6c |andard-c|ase-tabl|
|00000ec0| 65 2c 0a 73 74 61 6e 64 | 61 72 64 2d 64 6f 77 6e |e,.stand|ard-down|
|00000ed0| 63 61 73 65 2d 74 61 62 | 6c 65 2c 20 73 74 61 6e |case-tab|le, stan|
|00000ee0| 64 61 72 64 2d 75 70 63 | 61 73 65 2d 74 61 62 6c |dard-upc|ase-tabl|
|00000ef0| 65 2c 0a 73 74 61 6e 64 | 61 72 64 2d 73 79 6e 74 |e,.stand|ard-synt|
|00000f00| 61 78 2d 74 61 62 6c 65 | 2c 20 61 6e 64 20 74 65 |ax-table|, and te|
|00000f10| 78 74 2d 6d 6f 64 65 2d | 73 79 6e 74 61 78 2d 74 |xt-mode-|syntax-t|
|00000f20| 61 62 6c 65 20 74 6f 20 | 69 6e 64 69 63 61 74 65 |able to |indicate|
|00000f30| 20 61 0a 77 6f 72 64 20 | 63 6f 6d 70 6f 6e 65 6e | a.word |componen|
|00000f40| 74 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |t." (byt|e-code "|
|00000f50| c2 08 c3 20 5c 22 88 c4 | 08 08 c5 20 23 88 c4 08 |... \"..|... #...|
|00000f60| 08 c6 20 23 88 c7 08 c8 | c9 20 23 88 c7 08 c8 09 |.. #....|. #.....|
|00000f70| 23 87 22 20 5b 63 20 74 | 65 78 74 2d 6d 6f 64 65 |#." [c t|ext-mode|
|00000f80| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 73 65 |-syntax-|table se|
|00000f90| 74 2d 63 61 73 65 2d 74 | 61 62 6c 65 2d 6e 6f 63 |t-case-t|able-noc|
|00000fa0| 61 73 65 20 73 74 61 6e | 64 61 72 64 2d 63 61 73 |ase stan|dard-cas|
|00000fb0| 65 2d 74 61 62 6c 65 20 | 73 65 74 2d 74 72 61 6e |e-table |set-tran|
|00000fc0| 73 2d 74 61 62 6c 65 2d | 74 6f 20 73 74 61 6e 64 |s-table-|to stand|
|00000fd0| 61 72 64 2d 64 6f 77 6e | 63 61 73 65 2d 74 61 62 |ard-down|case-tab|
|00000fe0| 6c 65 20 73 74 61 6e 64 | 61 72 64 2d 75 70 63 61 |le stand|ard-upca|
|00000ff0| 73 65 2d 74 61 62 6c 65 | 20 6d 6f 64 69 66 79 2d |se-table| modify-|
|00001000| 73 79 6e 74 61 78 2d 65 | 6e 74 72 79 20 22 77 20 |syntax-e|ntry "w |
|00001010| 20 20 22 20 73 74 61 6e | 64 61 72 64 2d 73 79 6e |  " stan|dard-syn|
|00001020| 74 61 78 2d 74 61 62 6c | 65 5d 20 31 32 29 29 0a |tax-tabl|e] 12)).|
|00001030| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00001040| 20 63 61 73 65 2d 74 61 | 62 6c 65 29 29 0a       | case-ta|ble)).  |
+--------+-------------------------+-------------------------+--------+--------+